Kolecko mysi v DBGridu

Otázka od: Matejcek Petr

4. 12. 2003 8:30

zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?

Odpovedá: LUKES Vaclav

4. 12. 2003 8:57

Reseno v JEDI...
V.

-----Original Message-----
From: Matejcek Petr [mailto:konference@crhov.komfi.cz]
Sent: Thursday, December 04, 2003 8:19 AM
To: delphi-l@clexpert.cz
Subject: Kolecko mysi v DBGridu

zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?

Odpovedá: Lukas Barton

4. 12. 2003 8:52

Nedavno jsem to resil:

interface
Type
  TUserDBGrid = class(TDBGrid)
    protected
      function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint):
Boolean; override;
      function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint):
Boolean; override;
    published
      property OnMouseWheelDown;
      property OnMouseWheelUp;
  end;

var
DBGrid1: TUserDBGrid;

implementation

function TUserDBGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint):
Boolean;
begin
  Result := False;
  if Assigned(OnMouseWheelDown) then
    OnMouseWheelDown(Self, Shift, MousePos, Result);
  if not Result then begin
    if Datalink.Active then begin
      Result := Datalink.DataSet.MoveBy(1) <> 0;
    end;
  end;
end;

function TUserDBGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint):
Boolean;
begin
  Result := False;
  if Assigned(OnMouseWheelUp) then
    OnMouseWheelUp(Self, Shift, MousePos, Result);
  if not Result then begin
    if Datalink.Active then begin
      Result := Datalink.DataSet.MoveBy(-1) <> 0;
    end;
  end;
end;

nekde v kodu:

DBGrid1 := TUserDBGrid.Create(Form1);

A priradit samozrejme vlastnosti (datasource, parent apod.)

Lukas Barton
barton@labsys.cz

-----Original Message-----
From: Matejcek Petr [mailto:konference@crhov.komfi.cz]
Sent: Thursday, December 04, 2003 8:19 AM
To: delphi-l@clexpert.cz
Subject: Kolecko mysi v DBGridu

zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
kurzor v DBGridu kdyz tam je scrolovaci lista?

Odpovedá: Matejcek Petr

4. 12. 2003 8:48

Co je JEDI... ???

LUKES Vaclav napsal(a):

>Reseno v JEDI...
>V.
>
>
>zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
>kurzor v DBGridu kdyz tam je scrolovaci lista?
>
>
>
>
>

Odpovedá: Lukas Barton

4. 12. 2003 9:28

Odpovedá: LUKES Vaclav

4. 12. 2003 9:09

JEDI je knihovna, obdoba RX. Podivej se na

http://jvcl.sourceforge.net/

je tam spousta skvelych veci a mimo jine i to, co potrebujes. Pouzivam to a
funguje to.

V.

-----Original Message-----
From: Matejcek Petr [mailto:konference@crhov.komfi.cz]
Sent: Thursday, December 04, 2003 8:39 AM
To: delphi-l@clexpert.cz
Subject: Re: Kolecko mysi v DBGridu

Co je JEDI... ???

LUKES Vaclav napsal(a):

>Reseno v JEDI...
>V.
>
>
>zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
>kurzor v DBGridu kdyz tam je scrolovaci lista?
>
>
>
>
>

Odpovedá: Karel Rys

4. 12. 2003 11:59

Matejcek Petr dne 4 Dec 2003 v 8:19:

> zdravim lze nejak nastavit aby se mi pri toceni koleckem mysi posouval
> kurzor v DBGridu kdyz tam je scrolovaci lista?

Kdysi jsem do konference posilal unitu, kterou stacilo pridat k projektu, a
rolovani pak fungovalo
ve vsech DbGridech. Pres kritiku nekterych ucastniku to mne, linemu cloveku,
usetrilo dost prace :-
)

Karel Rys